﻿
Partial Class WebForm_CommonControl_ChangeRecordControl
    Inherits System.Web.UI.UserControl
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Public Event OK_Click(ByVal sender As Object, ByVal e As System.EventArgs)

    Protected Sub btnOK_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnOK.Click
        If Me.txtEnterReson.Text.Length > 200 Then
            MyObj.ShowMessage("異動原因長度不可超過200個字!")
            Me.mpSearch.Show()
        Else
            RaiseEvent OK_Click(Me, New EventArgs)
        End If


        '    Me.mpSearch.Show()
    End Sub
    Public Sub InitAndShow()
        Me.txtEnterReson.Text = ""
        Me.mpSearch.Show()
    End Sub
    Public ReadOnly Property Reason() As String
        Get
            Return Me.txtEnterReson.Text.Trim
        End Get
    End Property
End Class
